
 FFA`bg(t[)
 by - NET-SOLEIL
 http://www.net-soleil.com/
 info@net-soleil.com

 Right-Bluezz

 T|[g
 http://bbs.net-soleil.com/1/

 {XNvg_E[hĒ܂Ƃɂ肪Ƃ܂B
 ̃XNvggpۂɂ͒ӎǂłgpĉB

 ӎ
 ẼXNvgʂĂ̔QɂĂ͈ؐӔC𕉂܂B
 ECGIݒu֎~̃T[o[ɐݒu邱Ƃ֎~܂B
 EĔzzꍇĂ炨肢܂B
 E쌠\L͕KĉB
 EoOȂǂ͎̎󂯕t܂A͎󂯕t܂B
 EǗl͗\Ŗ{XNvgCA폜\܂B
@ XV̍ۂ͓TCggbvɂĂm点܂B
 EXNvgFFA ()pXNvgłB
@ ɂĂFFA()łgpł܂B

 p[~bV̐ݒ
 cgi-bin [777]
   |
   +--  @    / datalog/chatlog.cgi  [666]	# `bgOۑ
	@@@/ html/chat.css@[644]		# `bgX^CV[g
	@@@/ history  [755]			# LO[U[ʕۑ
	@@@/ all_chat_data.cgi@[666]	# S[U[ۑ
	@@@/ chatranking.cgi  [755]		# LOvO{
	@@@/ ffachat.cgi  [755]		# `bgvO{

  LOgpȂꍇAbv[hKv

 C

 2013/07/23 ̍ۏȗ\悤Sy[Wǉ
 2012/10/30 Ԃɕ\ȂsC
 2012/10/29 c蕶Ȃsyяdȃ~XC
 2012/03/26 ꕔC
 2011/04/04 uxʂ̍XVĂvEołȂsC
 2011/02/03 M@\ǉ
 2011/02/03 M@\r
 2010/12/10 ԕ\ݒǉ
 2010/10/30 dȃ~XC
 2010/10/22 M@\ǉ
 2010/10/22 s̃Xy[Xr
 2010/03/13 Xpގ@\ǉ
 2010/03/12 O\ȂsC
 2010/03/11 ꕔdlύX
 2010/03/11 IDƔłȂsC
 2010/02/26 Aeh~@\ǉ
 2010/02/15 y[W@\ǉ
 2010/02/06 LOsC
 2010/02/01 SʓIdlύX
 2009/12/08 @\ǉ
 2009/12/01 ԌĔzzJn
 2008/08/04 zzJn
 2008/08/04 `bgsC
 2008/07/27 zzꎞ~
 2008/06/16 XV̔C
 2008/06/15 zzJn


 ǉ&ύXꏊ

 ffadventure.iniJ
 u$html_path = "../";	# LOHTMĽtH_܂ł̑΃pXv
 ̉Ɉȉǉ
##
#7. `bgݒ #
##
# vO
$script_chat = "./ffachat.cgi";
# Ot@C
$chat_file = "./datalog/chatlog.cgi";
# `bgbrr
$chat_css = "./html/chat.css";
# O\(͍)
$max_chat = 50;
# Oۑ(͍)
$max_log = 300;
# Rgő吔
$chat_size = 150;
# XV@\bPʂŗp(pȂꍇ0)
$uptime = 0;
# x\(Yes:1 NO:0)
$clvh = 0;
# tHgTCY(:10 ٌ`)
$fsize = 10;
# ̐Fgp\ɂ邩(:1 :0)CGIɂĐݒ肷KvL
$color = 0;
# ̐Fgpۂ̃LOԍCGIɂĐݒ肷KvL
$colban = 35;
# F(16i#)
$tec = "FFFFFF";
# tqkI[gN(ON:1 OFF:0)
$autolink = 1;
# JEg@\gp(Yes:1 NO:0)
$count = 1;
# Aeh~@\gp(Yes:1 NO:0)
$wcut = 1;
# Xp΍(Yes:1 NO:0)
$spam = 1;
# IDł̃`bg(r炵΍)
$cut_id[0] = "test";
# (ύXꍇffachat.cgi̒gvύX)
@mchan = ("ʏ","吺","","","");
# ԕ\ݒ
$tmc = 1;
# \镶(ȍ~͏ȗʃNőS\܂)
$out_size = 100;

 ԕ\ݒTv\
 0cԂ̕\Ȃ
 1c(2010N1231()2359)
 2c(2010/12/31(Fri)23:59)
 3c(2010/12/31(Fri)11:59pm)
 4c(23:59)
 5c(11:59pm Dec.31 Fri)

 
 datalogchatlog.cgi쐬ȂƐɓ삵܂B
$chat_file = "datalog/chatlog.cgi";

 # ǉꍇu$shut_id[1] = "(ID)";v̂悤ɂĂB
$cut_id[0] = "test";

 ffadventure.ini̕ύX͈ȏ

 ffadventure.cgi̕\(:`v\)Ɉȉǉ
 --------------------------------------------------------------------------------------------------
<!--http://allabout.co.jp/甲Bזȏꍇr-->
<script type="text/javascript"><!--
function CountDownLength( idn, str, mnum ) {
   document.getElementById(idn).innerHTML = "" + (mnum - str.length) + "";
}
// --></script>
<!--http://www.kent-web.com/甲-->
<SCRIPT type="text/javascript">
<!--
function autoclear() {
self.document.send.mes.value = "";
self.document.send.mes.focus();
}
// -->
</SCRIPT>
<FORM name="send" action="$script_chat" method="POST" target="chat" ONSUBMIT="setTimeout(&quot;autoclear()&quot;,10)">
<table border=0 align="center" width="100%"><tr>
EOM
print"<input type=\"hidden\" name=\"id\" value=".$chara[0].">\n";
print"<input type=\"hidden\" name=\"name\" value=".$chara[4].">\n";
print"<input type=\"hidden\" name=\"level\" value=".$chara[18].">\n";
print"<input type=\"hidden\" name=\"col\" ".(!$chara[$colban] ? "value=\"FFFFFF\"":"value=\"$chara[$colban]\"").">\n";
print"<input type=\"hidden\" name=\"chattime\" value=1>\n";
print"<td align=\"left\">\n";
print"<INPUT class=\"text\" type=\"text\" size=\"100\" name=\"mes\" onkeyup=\"CountDownLength('maxnum', value, $chat_size);\" maxlength=".$chat_size.">\n";
print"<select name=\"size\">\n";
$i=0;
foreach (@mchan){
	print"<option value=".$i.">".$_."\n";
	$i++;
}
print"</select>\n";
       print <<"EOM";
<input type="submit" class=btn value="/[h">
<input type="reset" class=btn value="Zbg">
<div id="maxnum" align="left">$chat_size</div>
</td></tr><tr></FORM>
<td align="center" class="b2">
<iframe src="$script_chat" width="100%" height="130" allowtransparency="true" frameborder="0" name="chat" scrolling="yes"></iframe>
</td></tr></table>
 --------------------------------------------------------------------------------------------------
 ȉ܂(LO@\)
 ffadventure.ini
----------------------------------------------------------------------------------------
# vO
$script_chat = "./ffachat.cgi";
----------------------------------------------------------------------------------------
 ̉ɉLǉ
----------------------------------------------------------------------------------------
# LOvO
$script_rchat = "./chatranking.cgi";
# LOL^tH_(Ō̃XbV͔)
$crank_folder = "./history";
----------------------------------------------------------------------------------------
 regist.pl
----------------------------------------------------------------------------------------
#--------------------------------#
#--LOQҎo--#
#--------------------------------#
sub chat_data_read {

	opendir (DIR,'./history') or die "$!";
	foreach $centry (readdir(DIR)){

		if ($centry =~ /\.cgi/) {
			open(IN,"./history/$centry");
			$WORK=<IN>;
			$WORK =~ s/\n//gi;
			push(@temp_member,"$WORK\n");
			close(IN);		
		}
	}
	closedir(DIR);

	# z2ԖڂŃ\[g
	@tmp = map {(split /<>/)[2]} @temp_member;
	@CHATRANKING = @temp_member[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];

	open(OUT,">./all_chat_data.cgi");
	print OUT @CHATRANKING;
	close(OUT);
}
----------------------------------------------------------------------------------------
 ǉ
 ffadventure.cgi&read_winnert߂
----------------------------------------------------------------------------------------
	&chat_data_read;
----------------------------------------------------------------------------------------
 ǉ
 Lffachat.cgíu&unlock($lock_file,'MS');v̉ɒǉ

 --------------------------------------------------------------------------------------------------
		open(IN,"$crank_folder/$in{'id'}.cgi");
		$chat_log = <IN>;
		close(IN);
		@crank = split(/<>/,$chat_log);

		$crank[0] = $in{'id'};
		$crank[1] = $in{'name'};
		$crank[2] = $in{'level'};
		$crank[3] += 1;
		$rank_data = '';
		$rank_data = join('<>',@crank);
		$rank_data .= '<>';
		open(OUT,">$crank_folder/$in{'id'}.cgi");
		print OUT $rank_data;
		close(OUT);
 --------------------------------------------------------------------------------------------------
 ʃt@CɋL^Ă܂B̂܂@charaɋL^̂łΊeŁB
 
 Ƃchatranking.cgiAbv[h(755)Ί
 (ƃN@F<a href="chatranking.cgi" target="_blank">[LO]</a>)

 *Ǘl̔Oꍇffadventure.ini$adminid = "ID";ǉB


 쌠\

 regist.plJ

 FFA CHAT ver2.21 edit by <a href="http://www.net-soleil.com/" target="_blank">NET-SOLEIL</a>

 ȏǉĂB

 ݒu@
 ̐ǂɂ΂ԂOK
 Ǝdグ̂łƂǂs邩ȂBBB
 T|[gyуXNvg̗v]͌fցB